CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swags_z.zip/SCREEN.SWG/0054_Screen Segment.pas

Pascal/Delphi Source File | 1994-01-27 | 580b | 26 lines

{
> I have always addressed $B800 as the screen segment for direct video
> writes in text.... Err, umm, does anyone have the code to detect
> whether it is $B000 or $B800 (for Herc.'s and the like)...

 call the Bios INt $10 Function $0f to get video mode.
}

Function GetVideoSegment:Word;
 Begin
  Asm
       Mov     AH,$0f;
       INT    $10;
       Cmp     AL, $07;        { Monochrome? }
       Jne     @No;
       Mov     @Result, $B000;
       Jmp     @Done;
@No:   Mov     @Result, $B800;
@Done:
  End;
End;

begin
 Write( GetVideoSegment);
End.